home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 January / Macworld (1997-01).dmg / QuarkImmedia™1.01 Demo / Power Macintosh Demo / QuarkXPress - Int'l English / QuarkXPress™ Demo / QuarkXPress™ 3.32r5 Demo / QuarkXPress™ 3.32r5 Demo.rsrc / PSHD_1015 < prev    next >
Text File  |  1996-11-01  |  1KB  |  37 lines
  1. /shgr{chc 0 get 2 and 0 eq{100 45{dup mul exch dup mul add 1. exch sub}setscreen
  2.  .8}{1}ifelse H}def
  3. /setchc{chc exch 0 exch put}B
  4. /chkch{currentfont dup/Encoding 2 copy known{get 2 index 0 get get dup/.notdef ne
  5.  {exch/CharStrings 2 copy known{get exch known not}{p3 T}ifelse}
  6.  {p2 T}ifelse}{p3 T}ifelse}B
  7. /xpsh{doss ss and{sym fmtx makefont/xpfs X
  8.  {s1 0 3 -1 roll put
  9.  s1 chkch{g xpfs setfont M cps G mif}
  10.  {M}ifelse}forall}{M}ifelse}B
  11. /xpash{doss ss and{sym fmtx makefont/xpfs X
  12.  {s1 0 3 -1 roll put 2 copy
  13.  s1 chkch{g xpfs setfont N cps G mif}
  14.  {N}ifelse}forall p2}{N}ifelse}B
  15. /xpwsh{doss ss and{sym fmtx makefont/xpfs X
  16.  {s1 0 3 -1 roll put 3 copy
  17.  s1 chkch{g xpfs setfont Y cps G mif}
  18.  {Y}ifelse}forall p3}{Y}ifelse}B
  19. /xpawsh{doss ss and{sym fmtx makefont/xpfs X
  20.  {s1 0 3 -1 roll put 5 copy
  21.  s1 chkch{g xpfs setfont Q cps G mif}
  22.  {Q}ifelse}forall p2 p3}{Q}ifelse}B
  23. /d{dup doss ss and{sym fmtx makefont/xpfs X
  24.  0 0 3 -1 roll{s1 0 3 -1 roll put
  25.  s1 chkch{g xpfs setfont w G}
  26.  {w}ifelse 3 -1 roll add 3 1 roll add exch}forall}
  27.  {w}ifelse pop 3 -1 roll sub 3 -1 roll div
  28.  3 -1 roll exch sub 0 32 3 -1 roll 0 5 -1 roll
  29.  doss ss and{xpash p3}{Q}ifelse}B
  30. /D{dup doss ss and{sym fmtx makefont/xpfs X
  31.  0 0 3 -1 roll{s1 0 3 -1 roll put
  32.  s1 chkch{g xpfs setfont w G}
  33.  {w}ifelse 3 -1 roll add 3 1 roll add exch}forall}
  34.  {w}ifelse pop 3 -1 roll exch sub 3 -1 roll div 0 3 -1 roll xpash}B
  35. /ssh{2 copy g dup vtd{neg}if rm shgr xpsh pop G xpsh}B
  36. /std{6 copy g dup vtd{neg}if rm shgr d pop G d}B
  37.